home *** CD-ROM | disk | FTP | other *** search
/ Aminet 52 / Aminet 52 (2002)(GTI - Schatztruhe)[!][Dec 2002].iso / Aminet / comm / irc / epic4-mos.lha / share / epic / script / scandir < prev    next >
Encoding:
Text File  |  2002-09-19  |  281 b   |  19 lines
  1. /*
  2.  * scandir -- an interesting way to use $glob() to get all the files
  3.  * in a [sub]directory.
  4.  */
  5. alias scandir
  6. {
  7.     ^local retval
  8.     ^local last
  9.  
  10.     for x in ($glob($*/*))
  11.     {
  12.         if (!(last = after(-1 / $x))) \
  13.             @ last = x
  14.         push retval $last
  15.     }
  16.     @ function_return = retval
  17. }
  18. #hop'97
  19.